Неполучается написать программу в Delphi

[MecteriO]

Осуществляется ввод с клавиатуры и запоминание в Memo-компоненте заранее неизвестного количества целых чисел из интервала 1 <= Х <= 999. Оператор должен прекратить ввод, если введет число, которое окажется равным константе, хранимой в Delphi-приложении и неизвестной оператору.

[Stilet]

А что именно не получается?

[MecteriO]

если честно, то все...

[MecteriO]

Может кто подсабить?

[s-andriano]

Ну, кроме препода есть еще и учебники...
Так что, думаю, Вы обратились не в тот раздел.

[Stilet]

Может кто подсабить?

Чтобы подсобить надо знать как ты делаешь.
Например я напишу такое:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
 if key=#13 then begin
  if TryStrToInt(Edit1.Text,i) then begin
   Memo1.Lines.Append(Edit1.Text);
   if i=123 then begin Edit1.Enabled:=false; ShowMessage('Кончили ввод');end;
   Edit1.Text:='';
  end;
 end;
end;

end.

И чем тебе это поможет?