Edit1.ReadOnly := true;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
var
  number : Real;
begin
  number := 3.4 * StrToFloat (Key);
  Edit1.Text:=FloatToStr(number);
end;