<!--CodeS-->
// 숫자만 표현하기 위한 필터링 함수..........................1번 관련
// (다 입력된 내용에서 숫자만 뽑아내기~)
Function FilterNumber(ls_Text: String): String;
var
  i : integer;
begin
  Result := '';
  if Length(ls_Text) > 0  then
  begin
    for i := 1 to Length(ls_Text) do begin
      case ls_Text[i] of
        '0'..'9','.','-' : Result := Result + ls_Text[i];
      end;
    end;
  end;
  if Result = '' then Result := '0';
end;

procedure TForm1.umEdit1Exit(Sender: TObject);
var ld_Val:Double;
begin
  // Edit에 적혀있는 글에서 숫자값만 필터링
  ld_Val := StrToFloat(FilterNumber(umEdit1.Text));
  // 천단위 마다 콤마 찍어서 보여줌..........................2번 관련
  umEdit1.Text := Format('%.0n',[ld_Val]);
end;

procedure TForm1.umEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  // Edit의 KeyPress이벤트에서 다음처럼 조건을 주면 숫자관련 값들만 입력이 됩니다.
  // (키가 눌러질 때마다 숫자만 뽑아내기~)..........................1번 관련
  IF Not(Key IN['0'..'9','.','-']) Then Key := Char(Nil);
end;
<!--CodeE-->

그리고 결정적으로 3번은 일반 컴포넌트에서 우측정렬이 되지 않아서
저는 우측정렬이 가능한 "umEdit" 컴포넌트를 설치해서 사용하고 있습니다.
umedit컴포넌트도 첨부합니다.


※ 마지막으로 아예 폼이 생성될 때 숫자값만 입력 받을 수 있도록 SetWindowLong설정하는 방법 입니다.
(다만 마이너스와 소숫점은 ... 사용할 수 없습니다.)
<!--CodeS-->
procedure TForm1.FormCreate(Sender TObject);
begin
   Edit1.Text := '0';
   SetWindowLong(Edit1.Handle, GWL_STYLE,
                           GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
end;
<!--CodeE-->

ps. 도움 되셨음 하구요 저도 라벤더님과 같은 생각입니다. 검색해보는 버릇이 많은 도움이 될 것입니다.
(잘못 검색하셔도 얻고자 하는 것 이외의 많은 정보를...^^ 얻을 수 있습니다.)

1번은 폼 생성시 SetWindowLong을 쓰거나
입력을 받을 때 검사하는 방법이 있겠습니다.
흠, 이 곳에서 '숫자만'으로 검색해도 찾을 수 있을 것 같은데요?
2번 역시 '천단위'로 검색 한 번 해보시고요...
3번은 무슨 뜻이신지?

모르는거 모르신다고 대뜸 질문부터 하시기전에
여기서 검색한번 해보시면 좋으실거에요 ^^