[march]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    function findsymbolinstring(ourstring:string;oursymbol:string):boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.findsymbolinstring(ourstring:string;oursymbol:string):boolean;
var
 meter:integer;//счетчик для цикла в функции
 funcbool:boolean;
begin
 funcbool:=false;
 for meter:=1 to length(ourstring) do
   begin
    if ourstring[meter]=oursymbol then
     begin
      funcbool:=true;
      break;
     end;
   end;
 result:=funcbool;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
 str,s,i:string;
 k:integer;
 bool:boolean;
begin
 str:=Edit1.Text;
 i:=Edit3.Text;
 bool:=false;
 s:='';


  begin
   for k:=1 to length(str) do
    begin


     if str[k]=' ' then
      begin
       if strtoint(edit2.text)=length(s) then
        begin
         bool:=findsymbolinstring(s,i);
         if bool=true then
          begin
           break;
          end;
        end;
       s:='';  //нашли пробел - обнуляем строковую переменную
      end;

     if k=length(str) then
      begin
       if strtoint(edit2.text)=length(s)+1 then
        begin
         bool:=findsymbolinstring(s+str[k],i);
         if bool=true then break;
        end;
      end;

     if k<>length(str) then
      if str[k]<>' ' then
       s:=s+str[k];
    end;
  end;



 if  bool=true then
  showmessage('Даа')
 else
  showmessage('Нэт!');

end;



end.

Переменные постарался сохранить Ваши, чтоб более понятно было.

Поэтому я, по существу, и обратилась.

Не заметил ((.