Как получить два первых символа строки

type
  Person = record
    FIO : string[20];
    nom : integer;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
with mas[i] do
  begin
    FIO:=Edit1.Text;
    nom:=StrToInt(Edit2.Text);
    Memo1.Lines.Add(fio + #32 + inttostr(nom));
  end;;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
c:integer;
v:string;
begin
for i:= 0 to Memo1.Lines.Count do
  v:=Memo1.Lines[i]+v;
with mas[c] do
  for c:= 0 to memo1.Lines.count do
    begin
      if (nom div 1000) = 64 then
        memo2.Lines.Add(FIO)
    end;
end;

with mas[c] do

memo2.Lines.Add(FIO)

if (nom div 10000) = 64 then

for i:=0 to Memo1.Lines.Count do
begin
  v:=Memo1.Lines[i]+v;
  with mas[i] do
    if nom div 10000=64 then
      memo2.Lines.Add(FIO)
end;

  for i:=0 to Memo1.Lines.Count do

  for i:=0 to Memo1.Lines.Count - 1 do

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
with mas[i] do
  begin
    FIO:=Edit1.Text;
    nom:=StrToInt(Edit2.Text);
    Memo1.Lines.Add(fio + #32 + inttostr(nom));
  end;;
end;

var
  Form1: TForm1;
  Count : Integer = 1;
  mas : array[1..10] of Person;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with mas[Count] do
  begin
    FIO := Edit1.Text;
    nom := StrToInt(Edit2.Text);
    Memo1.Lines.Add(fio + #32 + IntToStr(nom));
  end;
  inc(Count);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to Memo1.Lines.Count  - 1 do
  with mas[succ(I)] do
  begin
    if nom div 10000 = 64 then
      memo2.Lines.Add(FIO)
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//
end;
 
end.

procedure TForm1.Button3Click(Sender: TObject);
begin
  Count := 1;
  Memo1.Clear;
  Memo2.Clear;
  FillChar(Mas, SizeOf(Mas), 0);
end;