Wie kann ich in einem TEdit z.B. nur numerische Eingaben zulassen?

Neben einem TMaskEdit kann man über OnKeyPress auch ganz einfach seinen eigenen Filter einrichten. Die folgende Routine läßt nur Zahlen, Punkt und Minus sowie die Backspace-Taste zu:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key:Char);
begin
  if not((StrScan('0123456789.-',Key) <> nil) or (Key = Char(VK_BACK))) then begin
    Key := #0;
  end;
end;

siehe auch:

Wie kann ich den blinkenden Cursor in einem deaktivierten TMemo (oder TEdit) verstecken?
Wie fügt man an einer bestimmten Position Text in ein TMemo (order TEdit, TRichEdit) ein?

Delphi FAQ