Работа с текстом в делфи

[Neymexa]

procedure TForm1.Button1Click(Sender: TObject);

const DelSym = ' .,!?';
var Text,Word: string;
i: integer;
mas:array[1..10] of string;
begin
  Text:=Memo1.Lines.Text;
  for i := 1 to Length(Text) do
    if Pos(Text[i],DelSym) > 0 then
      Text[i]:=',';

  if Text[1] = ',' then
    Delete(Text,1,1);
  while Pos(',,',Text) > 0 do
    Delete(Text,Pos(',,',Text),1);

  repeat
    Word:=Copy(Text,1,Pos(',',Text)-1);
    Delete(Text,1,Length(Word)+1);
    ListBox1.Items.Add(Word);
  until Length(Text) = 0;
    if Memo1.Lines:=mas[1] then showmessage('+1');
end;

почему ошибка?
[Error] Unit1.pas(50): Incompatible types: 'TStrings' and 'String'
не соответствие типов данных.

Может кто поможет ?
прога должна сравнивать элементы массива со словами в TMemo1 и выдает +1 если такое слово есть в массиве

Заранее спасибо

[Stilet]

if Memo1.Lines[i]:=mas[1] then showmessage('+1');

А вообще я бы не так делал...
Слова из Мемо можно получить с помошью DelimitedText, а потом уж и проверять их по циклу.

[Neymexa]

Сообщение от Stilet

if Memo1.Lines[i]:=mas[1] then showmessage('+1');

А вообще я бы не так делал...
Слова из Мемо можно получить с помошью DelimitedText, а потом уж и проверять их по циклу.

Почему же?
да и спасибо за [i] - недоглядел
и кстати не работает пишет тип булеан

[cvv]

не if Memo1.Lines[i]:=mas[1] then showmessage('+1');
а if Memo1.Lines[i]=mas[1] then showmessage('+1');

[Stilet]

cvv

Упс... И на проруху бывает старуха.

[Neymexa]

Сообщение от Stilet

Упс... И на проруху бывает старуха.

Согласен