procedure TForm1.Bilgisayar1Click(Sender: TObject); // menuden bilgisayar
begin
form2.Show; //form2 acılıyo
form2.DBEdit1.Text:=''; //iclerini boşaltıyorum
form2.DBEdit2.text:='';
form2.DBEdit3.text:='';
form2.DBEdit4.text:='';
form2.DBEdit5.text:='';
form2.DBEdit6.text:='Bilgisayar'; // burda bilgisayar yazacak başka bilgi girişi olmıcak ben keypress olayından yararlanmayı duşundum yardım edebilen olursa allah razı olsun
form2.DBEdit7.text:='';
form2.DBEdit1.SetFocus;
form2.DBEdit6.OnKeyPress
__________________