Работа в Delphi 7 с типом записью

[sanji2010]

Доброй ночи. Писал программу и столкнулся с проблемой. Задание:
Пользователь ICQ решил создать резервную копию своего списка контактов
случай взлома учётной записи. Один элемент списка контактов включает в себя UIN, отображаемое имя, адрес электронной почты и телефон. Реализовать поиск нужного элемента списка по подстроке любого из полей. Адрес электронной почты проверять на правильность.
Необходимо сделать через TListBox и TComboBox.
Программа

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, IdGlobal;
 Type
  TForm1 = class(TForm)
    lst1: TListBox;
    ArrUins: TComboBox;
    ButtonRun: TButton;
    InfoOfPeople: TLabel;
    ChooseUIN: TLabel;
    Output: TLabel;
    EditUin: TEdit;
    EditName: TEdit;
    EditMail: TMaskEdit;
    EditPhone: TEdit;
    InputUin: TLabel;
    InputName: TLabel;
    InputMale: TLabel;
    InputPhone: TLabel;
    ButtonChoose: TButton;
    procedure ButtonRunClick(Sender: TObject);
    procedure ButtonChooseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  Ticq=record
       Uin: integer;
       Name: string;
       mail: string;
       phone: string;
  end;
var
  Form1: TForm1;
  ICQ: Ticq;
  MasIcq: array [1..20] of Ticq;
  p: Integer;
implementation

{$R *.dfm}
procedure TForm1.ButtonRunClick(Sender: TObject);
var i:Integer;
begin
  i:=1;
  p:=p+i;
  MasIcq[p].Uin:=StrToCard(EditUin.Text);
  MasIcq[p].Name:=EditName.Text;
  MasIcq[p].mail:=EditMail.Text;
  MasIcq[p].phone:=EditPhone.Text;
  ArrUins.Items.Add(EditUin.Text);
  EditUin.Clear;
  EditPhone.Clear;
  EditName.Clear;
  EditMail.Clear;
end;

procedure TForm1.ButtonChooseClick(Sender: TObject);
var s:integer;
begin
 lst1.Clear;
 s:=StrToInt(ArrUins.items[arruins.ItemIndex]);
 Lst1.Items.Add('UIN '+IntToStr((MasIcq[s].Uin)));
 lst1.Items.Add('Имя '+MasIcq[s].Name);
 lst1.Items.Add('E-Mail '+MasIcq[s].mail);
 lst1.Items.Add('Номер телефона '+(MasICQ[s].phone));
end;

begin
  p:=0;
end.

При нажатии кнопки вывод в TListBox, программа крашится
Сам проект

[sanji2010]

Заметил, что если вводу юин из 1 числа, то программа работает исправно. Если 2 или больше - выдаёт фигню

[Stilet]

программа крашится

Вау. Слово "краш" выучили. Отлично. Тогда скоро и начнем тексты ошибок выкладывать. Будущее прям аж сияет перспективами.

p:=p+i;
MasIcq[p].Uin:=StrToCard(EditUin.Text);

А почему не проверяешь на выход "p" за пределы диапазона массива?

[min@y™]

Поставь брейкпойнт на "lst1.Clear;" и потыкай F8.

[Вадим Мошев]

Сообщение от min@y™

Поставь брейкпойнт на "lst1.Clear;" и потыкай F8.

Думаю, лучше F7 - пошаговая трассировка. Помогает обнаружить ошибку в 99% случаях.

[min@y™]

Думаю, лучше F7

Думаю, здесь, таки, лучше F8.