[kocctik]

Выдает ошибку

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 pozdrs:Array[0..5] of string =('здоровья','успехов','долголетия','счастья','богатства',
 'любви');
implementation
 function GenerateRandomPordr(Imens:Array of String): String;
 var
 i:integer;
 begin
 randomize;
 Result:=Imens[0];
 if Length(imens)>1 then
 for i:=1 to Length(imens)-1 do
 Result:=Result+'е'+Imens[i];
 Result:=Result+'Поздравляем Вас и желаем'+Pozdrs[Random(Length(Pozdrs))];
 end;
{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ME1.Clear;
memo1.Clear;
Me1.SetFocus;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
Imeninniki:Array of String;
begin


if ME1.Text[3]<>'.' then begin
ShowMessage('Введите дату, разделяя число и месяц точкой!');;
ME1.Clear;
ME1.SetFocus;
Exit;
end;

if (ME1.Text[1]>='3') and (ME1.Text[2]>'1') or (ME1.Text[1]='0') and (ME1.Text[2]='0')
or (ME1.Text[1]='') or (ME1.Text[2]='') then begin
ShowMessage('Ошибка! Дни месяца от 1 до 31!!!');
Exit;
end;

if (ME1.Text[4]>='1') and (ME1.Text[5]>'2') or (ME1.Text[4]='0') and (ME1.Text[5]='0')
or (ME1.Text[4]='') or (ME1.Text[5]='') then begin
ShowMessage('Ошибка! Месяц от 1 до 12!!!');
Exit;
end;


Memo1.Clear;
Memo2.Clear;
Memo2.Lines.LoadFromFile('dr.txt');
for i:=0 to Memo2.Lines.Count-1 do
begin
if Pos(ME1.Text,Memo2.Lines.Strings[i])<>0 then
Memo1.Lines.Add(Memo2.Lines.Strings[i]);
end;
if Memo1.Lines.Count=0
then
begin
ShowMessage('Именниников не обнаружено');
Exit;
end;
SetLength(Imeninniki,Memo1.Lines.Count);
for i:=0 to Memo1.Lines.Count-1 do


Imeninniki[i]:=Copy(Memo1.Lines.Strings[i],Pos('',Memo1.Lines.Strings[i]),
Length(Memo1.Lines.Add(GenerateRandomPordr(Imeninniki))
end;







procedure TForm1.Edit1Change(Sender: TObject);
begin
if Key in ['й','ц','у','к','е','н','г','ш','щ','з','х','ъ','ф','ы','в','а','п','р',
'о','л','д','ж','э','я','ч','с','м','и','т','ь','б','ю',#8,#13,#27,] then abort;
end;
end;

end.

Админ: Пользуемся тегами для оформления кода!

[Alegun]

Не хватало лишь файла dr.txt с именинниками, вот корректировка.