[zip000]

Вот. StrIn - строка в которой ищем слова, Word1 - слово перед /, Word2 - слово после /.

Код:

procedure GetWords(StrIn : String; var Word1, Word2 : String);
var
  i : Integer;
begin
  Word1 := '';
  Word2 := '';
  if (Length(StrIn) < 9) or (Pos(' ', StrIn) = 0) or (Pos('/', StrIn) = 0) then
    Exit;
  i := Length(StrIn);
  while StrIn[i] <> '/' do begin
    Word2 := StrIn[i] + Word2;
    i := i - 1;
  end;
  i := i - 1;
  while (i <> 0) and (StrIn[i] <> ' ') do begin
    Word1 := StrIn[i] + Word1;
    i := i - 1;
  end;
end;