MessageBox i zmienne

procedure TForm1.Button1Click(Sender: TObject);
var
odp:integer;
tresc,tyt:string;
begin
tresc:=edit1.text;
tyt:=edit2.text;
odp:=application.messageBox(tresc,tyt,mb_YesNo+mb_IconInformation);
if odp=6 then panel1.caption:='yes';
if odp=7 then panel1.caption:='no';
end;

Czyemu tak niedziala ;( ;( ;(
Pomocy [???]

odp:=application.messageBox(PChar(tresc),PChar(tyt),mb_YesNo+mb_IconInformation);

Serdeczne dzięki tera se dam rade(chyba) [green]