[rogercito]

hola , que tal tengo 2 codigosque saque de esta pagina que funcionan pero quisiera agregarles la validacion para saber si aprietan ENTER si el campo no fue llenado se los paso a continuacion

procedure TForm1.edit1keypress(Sender: TObject; var Key: Char);

begin
if not(Upcase(Key) in[#8,#32,{'0'..'9'}'A'..'Z','a'..'z','Ñ','ñ']) then
begin
Key:= #0;

end;
end;

el otro es :
begin
if (key <#48) or (key >#57) then
if key<>#8 then
begin
beep;
showmessage('Solo Puede Ingresar Números');
key:=#0;
end;
end;

a estos codigos les agregue
if key=#13 then //presiona enter y se salta
begin
if edit1.text=´´ then //si esta vacio
begin
showmessage(´el campo esta vacio´);
edit1.setfocus; //se queda ahi
end
else
edit2.setfocus; // salta al siguiente
end;

pero resulta que cuando agrego esto , no me toma las validaciones que realizo primero ...

su ayuda me importa
gracias