[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.