Ejemplos:
Para evitar que se ingreses espacios:
Código Delphi
[-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = Char(VK_SPACE) then
Key := #0;
end;
Para validar que el campo no esté vacío:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = EmptyStr then
end;
Para que no se ingresen números (Sólo permitir letras y caracteres):
Código Delphi
[-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then
Key := #0;
end;
Para que no se ingresen letras:
[delphi]
Código Delphi
[-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['a'..'z']) or (Key in ['A'..'Z']) then
Key := #0;
end;
Espero que sea lo que buscas, algo así entendí que querías.
Saludos.