[Black Dahlia]

На форме 1 кнопка,1 надпись,1 едит и 1 мемо.Вводится строка из нескольких слов
и чисел,разделенных неопределенным числом пробелов.Выбрать 1 встретившееся в строке
число и вывести в мемо таблицу умножения этого числа на 1-10.Результат умножения
двух 1х в строке чисел вывести в надпись.Отдельная кнопка - очистка мемо.

Вводится в едит строка.
Пример строки:
Const ! 56 q wert 765.3 -5 tyr.
Надо считать 56 и закинуть знач. в переменную.
И в мемо через цикл от 1 до 10 произвести умнож. данного числа.
Пример:
56*1=56
56*2=112
56*3=268
...
56*9=504
56*10=560
И в напдись вывести 2 первых числа.
Пример:
56 102
И сделать отдельную кнопку - очистка мемо.


Вот мой неполный набросок кода. А как дальше доделать ?

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    lbl1: TLabel;
    mmo1: TMemo;
    edt1: TEdit;
    procedure edt1Enter(Sender: TObject);
    procedure lbl1Click(Sender: TObject);
  private
     s: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,chislo,x,n: Integer;

implementation

{$R *.dfm}

procedure TForm1.edt1Enter(Sender: TObject);
begin
   s:=edt1.text;
   x:=strtoint(s);
   for i:=1 to n do
   if x in [0..9] then x:=chislo;
   ord(chislo);

end;

procedure TForm1.lbl1Click(Sender: TObject);
begin
caption:=chislo;
end;

end.