(*
В Delphi есть класс, называемый TParser, который IDE использует для парсинга исходного кода. Вы тоже можете использовать этот класс для парсинга строк.
Функция берет строку и делит ее на слова.
*)

procedure ParseThis(MyStr: String);
var
   MyParser: TParser;
   MS: TMemoryStream;
begin
   MS := TMemoryStream.Create;
   MS.Position := 0;
   MS.Write(MyStr[1], Length(MyStr));
   MS.Position := 0;
   MyParser := TParser.Create(MS);
   MyStr := MyParser.TokenString;
   ShowMessage(MyStr);
   while MyParser.Token <> toEOF do begin
     MyParser.NextToken;
     if MyParser.TokenSymbolIs(MyParser.TokenString) then begin
       MyStr := MyParser.TokenString;
       ShowMessage(MyStr);
     end;
   end;
   MyParser.Free;
   MS.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ParseThis('Сканировать эту строку');
end;