Sieh dir mal den befehl copy an...
[edit]
Das ganze könnte dann etwa so aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Tag, Monat, Jahr:String;
begin
Tag:=Copy(Edit1.Text,1,2);
Monat:=Copy(Edit1.Text,4,2);
Jahr:=Copy(Edit1.Text,7,4);
end;
[/eidt]