[Rosenkrantz]

Разделить строку по точке с запятой можно так:

Код:

function DivStr(const SourceStr: String; var SubStr1, SubStr2: String): Boolean;
var
  i: Integer;
begin
  i := Pos(';', SourceStr);
  if i <> 0 then begin
    SubStr1 := Copy(SourceStr, 1, i - 1);  
    SubStr2 := Copy(SourceStr, i + 1, Length(SourceStr) - i);
  end;
  Result := i <> 0;
end;

После выполнения функции в SubStr1 будет часть строки до точки с запятой, в SubStr2 - часть строки после. Если точки с запятой в строке нет, то функция вернет False, иначе (если удалось разделить строку) - True.