[lmikle]

Пусть номера не повторяются. Тогда это что-то типа такого:

Код:

procedure CheckNmb(AFileName : String; AMonth, AYear : Integer);
var
  S : TStringList;
  F :  TextFile;
  Buf : String;
  D : TDateTime;
begin
  S := TStringList.Create;
  AssignFile(F,AFileName);
  Reset(F);
  While Not EOF(F) Do
     Begin
        ReadLn(F,B);
        D := StrToDateTime(Copy(B,Pos(';',B)+1,Length(B));
        If (MonthOf(D) = AMonth) And (YearOf(D) = AYear) Then
           S.Add(Copy(B,1,Pos(';',B)-1);
     End;
  CloseFile(F);
  ShowMessage(S.Text);
  S.Free;
end;