Cara Membuat Calculator dengan Delphi7

Lagi belajar membuat calculator pake delphi7, catat dlu siapa tau berguna :(

dilengkap dengan validasi, kalo angka pertama kosong keluar pesan messagebox, dan seterus nya

procedure TForm2.btntambahClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1+angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnkurangClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1-angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnkaliClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1*angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnbagiClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1/angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;
end.