[Alegun]

На форму надо кинуть баттон и мемо

Код:

uses
 StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
 i, b: integer;

 s,st: string;
 sl  : TStrings;
begin
 Memo1.Clear;
 st:= 'Андрей Васильев,директор торговой сети Евроопт заключил сделку ' +
      'с крупными поставщиками из России';
 b:= pos(',', st);
 Memo1.Lines.Add(Copy(st,1,b-1));
 s:= Copy(st, b+1, Length(st));
 Memo1.Lines.Add('Должность: '+Copy(s, 1, pos(' ', s)));

 sl:= TStringList.Create;
 sl.Delimiter:= ' ';
 sl.DelimitedText:=s;
 for i:=0 to sl.Count-1 do
  for b:=1 to length(sl.Strings[i]) do
   if sl.Strings[i][b] in ['А'..'Я'] then
    begin
     Memo1.Lines.Add('Организация:'+sl.Strings[i]);
     exit;
     end;

 sl.Free;
end;