[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
dFecha:TDate;
begin
TextoAFecha(Edit1.Text)
end;

function TextoAFecha(S:String):TDate;
var
x:String;
begin
x:=Copy(s,7,2)+'/'+Copy(s,5,2)+'/'+copy(s,1,4);
//Esto es para ver el funcionamiento, bórralo.
ShowMessage(x);

Result:=StrToDate(x);
end;

Un Saludo.