[march]

Код:

var
   str,s,i:string;
   k,n:integer;
   bool:boolean;
begin
 str:=Edit1.Text;//строка
 i:=Edit3.Text;//символ
 bool:=false;
 for k:=1 to length(str) do
  begin
  if str[k]=' ' then
   begin
    s:=copy(str,1,k-1);//все таки начинать надо было с 1)))
    if length(s)=StrToInt(Edit2.Text) then
     begin
      for n:=1 to length(s) do
       begin
        if s[n]=i then
         begin
          bool:=true;
          break; //если нашли, то выходим из цикла
         end;
       end;
     end;
   end;
  end;
 if bool=true then
  showmessage('Даа')
 else showmessage('Нэт!');

end;

Судя из Вашего кода. Работает ТОЛЬКО для первого слова. Если требуется для всех слов строки (формулировка задания размыта), то стоит отписать в этой теме, если возникнут трудности).