как из string перевести в PAnsiChar

[Sparky]

Вроде очень простая задача, но возникли трудности:

var
  s_1,s_2,s_3:string;
begin
  DataModule3.IBQuery2.Close;
  DataModule3.IBDataSet6.locate('fio',ComboBox3.text,[]);
  DataModule3.IBQuery2.ParamByName('id').value:=DataModule3.IBDataSet6.FieldByName('id_teacher').value;
  DataModule3.IBDataSet6.open;
  s_1:=FloatToStr(DataModule3.IBDataSet6.FieldByName('s_1').value);
  s_2:=FloatToStr(DataModule3.IBDataSet6.FieldByName('s_2').value);
  s_3:=FloatToStr(DataModule3.IBDataSet6.FieldByName('s_3').value);
  ShowMessage(s_1);
  MessageBox(self.Handle,'Стоимость занятий:'+#10#13+'1 заниятие:'+PAnsiChar(s_1)+#10#13+'2 заниятия:'+PAnsiChar(s_2)+#10#13+'4 заниятия:'+PAnsiChar(s_3),'Музыкальная школа на дому',MB_OK or MB_ICONINFORMATION);
end;

ошибка:
[DCC Error] Unit17.pas(137): E2010 Incompatible types: 'string' and 'PAnsiChar'

[Пепел Феникса]

MessageBox(self.Handle,PANSIChar('Стоимость занятий:'+#10#13+'1 заниятие:'+PAnsiChar(s_1)+#10#13+'2 заниятия:'+PAnsiChar(s_2)+#10#13+'4 заниятия:'+PAnsiChar(s_3)),'Музыкаль ная школа на дому',MB_OK or MB_ICONINFORMATION);

вроде так

[Sparky]

спасибо, все заработало

[Neeter]

Можно просто вот так написать:

MessageBox(Handle,PChar('Стоимость занятий:'+#10#13+'1 заниятие:'+s_1+
 #10#13+'2 заниятия:'+s_2+#10#13+'4 заниятия:'+s_3),
 'Музыкаль ная школа на дому',MB_OK or MB_ICONINFORMATION);