[lmikle]

Есть как минимум 2 варианта.
1. использование функций Copy и Pos
2. Использование StringReplace и TStringList.

Если с первым все понятно, то второй будет примерно так (это, конечно, изврат, через Copy/Pos более правильно делать):

Код:

procedure SplitString(AString : String);
var
  L : TStringList;
begin
  AString := StringReplace(AString,'/',#13#10,[sfReplaceAll]); // писал по памяти - поменять символ-разделитель на CRLF
  L := TStringList.Create;
  L.Text := AString;

  // предполагаем, что разделится на 3 строки
  Edit1.Text := L.Items[0];
  Edit2.Text := L.Items[1];
  Edit3.Text := L.Items[2];

  L.Free;
end;