procedure TForm1.Button1Click(Sender: TObject);

var

ad,soyad:String;

vize,final:Integer;

begin

ad:=InputBox('İsim Bilgileri','Adı giriniz :','');

soyad:=InputBox('İsim Bilgileri','Soyadı giriniz :','');

vize:=StrToInt(InputBox('Not Bilgileri','Vize notu :','80'));

final:=StrToInt(InputBox('Not Bilgileri','Final giriniz :','80'));

edit1.Text:= ad+' '+soyad;

edit2.Text:= FloatToStr(vize*0.4+final*0.6);

end;
end