Поиск текста методом последовательного перебора

[Des]

Здравсте уважаемые.

имею:

Function Search (S: String; X: String; var Place: Byte): Boolean;
{ Функция возвращает результат поиска в слове S }
{ подслова X. Place - место первого вхождения }
var Res: Boolean; i : Integer;
  Begin
   Res:=FALSE;
   i:=1;
    While (i<=Length(S)-Length(X)+1) And Not(Res) do
     If Copy(S,i,Length(X))=X then
       begin
	Res:=TRUE;
	Place:=i
       end
     else i:=i+1;
        Search:=Res
  End;

Обьясните мне пожалуйста, что делать с Place ? При попытки вызвать функцию,

Function Search (Edit1.Text,Memo1.Text,0): Boolean;

если в поле Place написать любое число то появляется ошибка мол введен не актуальный параметр.
В общем прошу предоставьте пример выполнения сие чуда .

P.S.: Byte на Integer менять не стоит, это с курсовой задание

Спасибо!

[dimonbest]

Может так?

var
n: byte
...........
Search (Edit1.Text,Memo1.Text,n)

[ArtInt]

Просто введи новую переменную например MyPlace: byte;
и пиши сначала присваивание MyPlace:=0; (например или что от 0 до 255)

Function Search (Edit1.Text,Memo1.Text, MyPlace): Boolean;

и тогда в переменную MyPlace потом будет заносится значение Place.
Потому что в функции var стоит.

[Des]

Одно и тоже я так полагаю . Знаете, чот я не пойму, но не работает .
В TMemo1 у меня текст 1111111111111111111111111111
в Edit ввожу 1
и вот это вот

procedure TForm1.Button1Click(Sender: TObject);
var
n: Byte;
begin
n:=0;
if Search(Edit1.Text,Memo1.Text,n) <> false then begin
ShowMessage('Текст находится начиная с '+IntToStr(n)+' символа');
end
else begin
ShowMessage('Текст не найден');
end;
n:=0;
end;

не работает....

[evg_m]

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

if Search(Edit1.Text,Memo1.Text,n) <> false then begin

Function Search (S: String; X: String; var Place: Byte): Boolean;
{ Функция возвращает результат поиска в слове S }
{ подслова X. Place - место первого вхождения }

В TMemo1 у меня текст 1111111111111111111111111111
в Edit ввожу 1

Сравни описание и вызов

[Des]

я равшан плиа мне самое оно метлу в руки xD
Вот она граждане невнимательность