Отсеивание лишних строк

[V@mpir]

Цель такая: в мемо помещается текст (построчный), в edit вбивается необходимая длина, в мемо2 должны попасть лишь те строки текста длина которых не превышает введенную.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,o,w:integer;
p:string;
begin
p:=edit1.text;
w:=strtoint(p);
for i:=0 to Memo1.Lines.Count-1 do
o:=length(memo1.lines[i]);
if o<=w then
Memo2.Lines.Add(memo1.lines[i]);
end;
end.

При запуске вообще ничего не происходит( в общем не работает). Нужна помощь

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var i,o,w:integer;
p:string;
begin
 p:=edit1.text;
 w:=strtoint(p);
 for i:=0 to Memo1.Lines.Count-1 do
 begin
  o:=length(memo1.lines[i]);
  if o<=w then
  Memo2.Lines.Add(memo1.lines[i]);
 end;
end;
end.

[Neeter]

Вы забыли добавить begin и end у цикла:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,o,w:integer;
 p:string;
begin
 Memo2.Lines.Clear;
 p:=edit1.text;
 w:=strtoint(p);
 for i := 0 to Memo1.Lines.Count - 1 do
 begin
  o:=length(memo1.lines[i]);
  if o<=w then
   Memo2.Lines.Add(memo1.lines[i]);
 end;
end;

Но зачем вам столько много переменных?
Они только мешают и занимают память в программе

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 Memo2.Lines.Clear;
 for i := 0 to Memo1.Lines.Count - 1 do
 begin
  if length(memo1.lines[i]) <= strtoint(Edit1.Text) then
   Memo2.Lines.Add(memo1.lines[i]);
 end;
end;

[soleil@mmc]

а вот эту бы я оставил

 w:=strtoint(edit1.text);

а то каждый раз определять разрешенную длину
и тогда получим

procedure TForm1.Button1Click(Sender: TObject);
var
 i, w: integer;
begin
 Memo2.Lines.Clear;
 w:=strtoint(edit1.text);
 for i := 0 to Memo1.Lines.Count - 1 do
    if length(memo1.lines[i]) <= w then
       Memo2.Lines.Add(memo1.lines[i]); 
end;

при желании можно еще эксепшоны обработать