[Apophis]

я неочень умею работать с текстом, подскажите...
вообщем есть edit4 там дата [12.34.5678]
мне надо разбить день месяц и год в 3 разных edit1, edit2 и edit3 [12][34][5678]

[san-46]

Ищешь точку (делитель) и по точке разбиваешь текст на три части.

Код:

var
  K : Integer;
  S : String;
begin
  S := Edit4.Text;
  I := Pos('.', S);
  if I > 0 then
    Edit1.Text := Copy(S, 1, I-1)
  else Exit;
  Inc(I);
  K := PosEx('.', S, I);
  if K > 0 then
    Edit2.Text := Copy(S, I, K-I)
  else Exit;
  Edit3.Text := Copy(S, K+1, 255)
end;

"PosEx" находится в модуле StrUtils.

[Apophis]

откуда взять StrUtils ? о_О

[san-46]

StrUtils - входит в штатную поставку Delphi (во всяком случае в D7 точно).
В секици uses надо записать имя этого модуля и все.