procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
Alfa: set of 'a'..'z'; // te combiene ponerlo en var global y no local como está aca
begin
if (not (Key in Alfa)) or (Key <> Chr(8)) or (Key <> Chr(32)) then
Key := Chr(0);
end;