procedure  TForm1.BKonversiClick(Sender: TObject); 
begin 
if ECelcius.Text <> '' then 
begin 
EFahreinheit.Text := floattostr(strtofloat(ECelcius.Text)*9/5+32) + '°'; 
EReamur.Text := floattostr(strtofloat(ECelcius.Text)*4/5) + '°'; 
EKelvin.Text := floattostr(strtofloat(ECelcius.Text)+273); 

ECelcius.Text := ECelcius.Text + '°'; 

BBersih.SetFocus; 
end;    
end ; 

procedure  TForm1.ECelciusKeyPress(Sender: TObject; var Key: Char); 
begin 
if key = #13 then 
BKonversi.Click; 
end; 

procedure  TForm1.BBersihClick(Sender: TObject); 
begin 
ECelcius.Text:=''; 
EFahreinheit.Text:=''; 
EReamur.Text:=''; 
EKelvin.Text:=''; 

ECelcius.SetFocus; 
end; 

procedure  TForm1.BKeluarClick(Sender: TObject); 
begin 
if MessageDlg('Anda ingin keluar?',mtconfirmation,[mbyes]+[mbno],0)= mryes then 
begin 
Application.MessageBox('Terimakasih sudah menggunakan program ini!','Bye.. 
Byee..',MB_OK + MB_ICONINFORMATION); 
Application.Terminate; 
end; 
end;