[lmikle]

Вообще, все можно сделать проще:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure TForm1.Button1Click(Sender: TObject); const   Leters=['к','п','с','т','ф','х','ц','ч','ш','щ']; var   Out : String;   sl : TStringList;   I, J : Integer;   Cnt : Integer; begin   Out := '';   sl := TStringList.Create;   Try     sl.Delimiter := ' ';     sl.Delimitedtext := AnsiLowerCase(Memo1.Lines.Text);       For I := Low(Letters) To High(Letters) Do       Begin         Cnt := 0;         For J := 0 To sl.Count-1 Do           If Pos(Letters[i],sl[J]) > 0 Then Inc(Cnt)         If (Cnt > 0) and (Cnt = sl.Count-1)           Then Out := Out + Letters[i] + ' ';       End;   Finally     sl.Free;   End;    If Out = ''     Then Memo2.Lines.Text := 'Букв, которые не входят только в одно слово, нет!'     Else Memo2.Lines.Text := Out; end;

Как-то так. Должно работать.