Работа со строками

[mary111le]

Дана строка, состоящая из групп нулей и единиц, разделенных пробелами. Найти и вывести на экран самую короткую группу. Необходимо использовать подключенный модуль. Помогите найти ошибку.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  m:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
edit2.clear;
if key =#13 then Edit2.Text:=Fnk(Edit1.Text);
end;

end.

unit Unit2;

interface
 uses StdCtrls, SysUtils;
 function Fnk(st:string;Edit1:TEdit):string;
implementation
 Function Fnk;
 var
 m,s,sr,smax:string;
   k:word;
   begin
  s:=edit1.Text;
 sr:=s;
 smax:=s;
 s:=s+' ';
 repeat
  k:=Pos('  ',s);
  if k<>0 then Delete(s,k,1);
 until k=0;

 if s[1]=' ' then Delete(s,1,1);
 k:=pos(' ',s);
 repeat
  if k-1<length(smax) then smax:=copy(s,1,k-1);
  delete(s,1,k);
  k:=pos(' ',s);
 until k=0;
 repeat
  k:=pos(' ',sr);
  if k-1=length(smax) then
   m:=(copy(sr,1,k-1));
  delete(sr,1,k);
 until k=0;
result:=m;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[3D Hunter]

Если требовалось это, судя из задания, то вот код. Смотрите: StrFinder.zip