[Lutmak]

muchas gracias a todos encontre la solocion a mi problema con ayuda de ustedes!
gracias

aqui dejo el code por si alguien mas en algun futuro la nesesitara..

procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit1.text ='' then
 begin
   beep;
   statictext1.Caption :=#0;
   showmessage ('ingrese un valor valido');
 end else
 if edit2.text ='' then
 begin
   beep;
   statictext1.Caption :=#0;
   showmessage ('ingrese un valor valido');
 end else

 statictext1.Caption :=floattostr ( strtofloat (edit1.text)+ strtofloat (edit2.text));

end;
end.