String na PAnsiChar

procedure TForm1.Button15Click(Sender: TObject);

var
zmienna1,zmienna2,zmienna3: string;
a,b,c: PAnsiChar;

begin

zmienna1 := 'tekst';
zmienna2 := 'tekst';
zmienna3 := 'tekst';

a := pansichar (zmienna1);
b := pansichar (zmienna2);
c := pansichar (zmienna3);

if messagebox(Handle,'propo' + Pansichar(a), 'Propozycja', MB_YESNO + MB_ICONQUESTION) = IdYes then
form2.showmodal;

Incompatible types: string and 'PAnsiChar'

Błąd wyskakuje oczywiście w Pansichar(a);
Jak można wstawić inaczej zmienną string, integer do messageboxa ?
Próbowałem zamiast 'PAnsiChar' dać 'PChar' lub Pansichar(zmienna1), ale to i tak nie dziala.

`propo' + Pansichar(a)''
Przecież po dodaniu to będzie string a nie pchar. Dodawaj przed konwersją.

aa no tak.

pchar(zmienna1 + 'tekst')

i działa :) Dzięki wielkie !

if messagebox(Handle,PChar('propo'+a),'Propozycja',MB_YESNO or MB_ICONQUESTION)=IdYes then