Problema de Principiante

[Casimiro Noteví]

Hola, recuerda poner títulos descriptivos a tus preguntas, gracias.
¡A!, y ese código no es php, ¿no?

[cloayza]

Te sugiero lo siguiente:

Codigo Libreria (DLL)

Código Delphi [-]
library CalendarioLib;

...
{$R *.res}

function Seleccionar_Fecha(sTitulo: pChar; dia, mes, ano: word): pChar;stdcall;
var
{  FechaStr   : string; 
  Fechain    : TDateTime;
}
  Resultado  : pChar;
  Form_Fecha : TForm_Fecha;
begin
     with TForm_Fecha.Create(nil) Do
     begin
           Caption:=sTitulo;
           MonthCalendar1.Date := EncodeDate(ano,mes,dia);
           try
              Result:=PChar('');
              ShowModal;
              if ModalResult=mrOk then
                 Result:=PChar(StringReplace(DateToStr(MonthCalendar1.Date), ' ','',[rfReplaceAll]));

           finally
                  Free;
           end;
     end;

end;

exports
     Seleccionar_Fecha;

begin
end.

Para llamar a función:

Código Delphi [-]
...
  function Seleccionar_Fecha(sTitulo: pChar; dia, mes, ano: word): pChar;stdcall; external 'CalendarioLib.Dll';

var
  Form_Fecha: Tform_Fecha;

implementation

{$R *.dfm}

procedure Tform_Fecha.Button1Click(Sender: TObject);
var
   dia, mes, ano: word;
   sDate, sTitulo:PChar;
begin
     dia:=15; mes:=6; ano:=2013;

     sTitulo:=PChar('Calendario Cumpleaños');

     sDate:=Seleccionar_Fecha(sTitulo,dia, mes, ano);

     Edit1.Text:=StrPas(sDate);

end;

Saludos cordiales

[elcharlie]

Muchas gracias por Responder, lo pruebo y te digo.

[elcharlie]

Vale ya esta probado.
Si uso strpas(retorno) me funciona perfectamente. He estado mirando por internet, y todavia no me queda muy claro que es lo que hace, pero lo que me importa es que me funciona. Muchisimas gracias por tu ayuda, de verdad que ya empezaba a desesperarme.
Un saludo.