Как сделать окно, которое перетаскивается не за заголовок
(caption), а за все поле.

Нужно обрабатывать сообщение WM_NCHITTEST:

{codecitation class="brush: pascal; gutter: false;" width="600px"}

TForm1 = class(TForm)
…
private
…
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
…
end;

…

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited; { вызов унаследованного обработчика }
if M.Result = htClient then{ Мышь сидит на окне? }
M.Result := htCaption; { Если да — то пусть Windows думает,
что мышь на caption bar }
end;
…

{/codecitation}

Окно можно сделать вообще без caption.
 

{codecitation class="brush: pascal; gutter: false;" width="600px"}

procedure AdjustResolution(oForm:TForm);
var
  iPercentage:integer;
begin
  if Screen.Width > 1440 then
  begin
    iPercentage:=Round(((Screen.Width-1440)/1440)*100)+100;
    oForm.ScaleBy(iPercentage,100);
  end;
end;

{/codecitation}

1. способ

{codecitation class="brush: pascal; gutter: false;" width="600px"}

procedure TForm1.FormCreate(Sender: TObject);
begin

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and (not (WS_CAPTION)));

end;

{/codecitation}

2. способ

{codecitation class="brush: pascal; gutter: false;" width="500px"}

Form1.BorderStyle:=bsNone;

{/codecitation}

{codecitation class=»brush: pascal; gutter: false;» width=»500px»}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [‘0’..’9′, ‘,’]) then Key := #0;
end;
{/codecitation}

В данном примере не обрабатывается нажатие «Backspace».
В следующем коде это исправлено.

{codecitation class=»brush: pascal; gutter: false;» width=»500px»}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [‘0’..’9′, ‘,’ , #8]) then Key := #0;
end;
{/codecitation}