PansiChar a string

[jorgegetafe]

Tengo tambien la versión 7, utilizando un showmessage no me da error, pero con el MessageBox si.

Código Delphi [-]
PROCEDURE TForm1.ObtenerMensajeClick(Sender: TObject);                          // Obtener mensaje
BEGIN
  mensaje:= edit1.text;
END;

 
PROCEDURE mostrarMensaje (mensaje: STRING);
  BEGIN
{    Application.MessageBox} showmessage (mensaje)//, 'Mensaje programado del usuario', MB_DEFBUTTON1);
  END;

Me pasa lo mismo con:

Código Delphi [-]
ShellExecute(0, 'open', ruta, NIL, NIL, SW_SHOW);

Siento ruta un string.