[Страдалецъ]

Ну вот вам код на шару

Код:

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
begin
 Memo1.Clear;
end;

procedure TForm7.Edit1Exit(Sender: TObject);
Var
  i: Integer;
  Num: String;
begin
 for i := 1 to Length(Edit1.Text)
 do if Edit1.Text[i] in ['0'..'9']
    then Break;
 Num := '';
 for i := i to Length(Edit1.Text)
 do if Edit1.Text[i] in ['0'..'9']
    then Num := Num + Edit1.Text[i]
    else Break;
 if Num = '' then Exit;
 Label1.Caption := '';
 for i := 1 to 10
 do begin
    Memo1.Lines.Add(Format('%s*%d=%d',[Num,i,StrToInt(Num)*i]));
    if i in [1,2]
    then Label1.Caption := Label1.Caption + IntToStr(StrToInt(Num)*i)+' ';
    end;
end;

end.