//=== CEK DATA ========================================================
procedure TForm1.cekData(Sender: TObject; var hasil: Boolean);
begin
  //cek kosong
  if (Edit1.Text = '') OR
     (Edit2.Text = '') OR
     (Edit3.Text = '') then
  begin
    hasil := FALSE;
    ShowMessage('Lengkapi data!');
  end; //end cek kosong
end;
//=====================================================================