Как проверить, существует ли файл и загрузить его в memo?

b := tstringlist.Create;
  a := tstringlist.Create;
  if fileexists ('a.txt') then
  begin
  pass.loadfromfile('a.txt');
  end
  else
  MessageDlg('Не удалось найти файл a.txt',mtError, [mbOK], 0);
  end;
  if fileexists ('b.txt') then
  begin
  uin.loadfromfile('b.txt');
  end
  else
  MessageDlg('Не удалось найти файл b.txt',mtError, [mbOK], 0);
  end;
...
Memo3.Lines.Add(a.Strings[i] + Edit3.Text + b.Strings[p]);

var
  i, p: integer;
  pass, uin: tstringlist;
begin
  pass := tstringlist.Create;
  uin := tstringlist.Create;
  if fileexists ('pass.txt') then
  begin
  pass.loadfromfile('pass.txt');
  end
  else
  MessageDlg('Íå óäàëîñü íàéòè ôàéë pass.txt',mtError, [mbOK], 0);
  if fileexists ('pass.txt') then
  begin
  uin.loadfromfile('UIN.txt');
  end
  else
  MessageDlg('Íå óäàëîñü íàéòè ôàéë UIN.txt',mtError, [mbOK], 0);
  for i := 0 to uin.Count - 1 do
  begin
    application.ProcessMessages;
    for p := 0 to pass.Count - 1 do
    begin
      Memo3.Lines.Add(uin.Strings[i] + Edit3.Text + pass.Strings[p]);
    end;
  end;
  if CheckBox1.Checked then
  begin
    Memo3.Visible := true;
  end;
  Memo3.Lines.SaveToFile('gen_uin_pass.txt');
  MessageDlg('Save to gen_uin_pass.txt',mtInformation, [mbOK], 0); //если убирать 9 и 16 строки, то выводиться вот это
  pass.Free;
  uin.Free;
  end;

if fileexists ('uin.txt') then

begin
  MessageDlg('Не удалось найти файл UIN.txt',mtError, [mbOK], 0);
  exit;
end;

p:=pass.Count;
k:=uin.Count;
i:=p;
if p<k then i:=k;
 
for i := 0 to i - 1 do
begin
  application.ProcessMessages;
  if ((i<k) and (i<p)) then
  Memo3.Lines.Add(uin.Strings[i] + Edit3.Text + pass.Strings[i]) else
  if i<k then
  Memo3.Lines.Add(pass.Strings[i]) else
  Memo3.Lines.Add(uin.Strings[i]);
end;

begin
  MessageDlg('Не удалось найти файл UIN.txt',mtError, [mbOK], 0);
  exit;
end;

Memo3.Lines.Clear;

if fileexists ('pass.txt') then
  begin
  pass.loadfromfile('pass.txt');
  end
  else
  begin
  MessageDlg('Íå óäàëîñü íàéòè ôàéë pass.txt',mtError, [mbOK], 0);
  exit;
  end;
  if fileexists ('pass.txt') then
  begin
  uin.loadfromfile('UIN.txt');
  end
  else
  begin
  MessageDlg('Íå óäàëîñü íàéòè ôàéë UIN.txt',mtError, [mbOK], 0);
  exit;
  end;

p:=pass.Count;
k:=uin.Count;
i:=p;
if p<k then i:=k;
 
for i := 0 to i - 1 do
begin
  application.ProcessMessages;
  if ((i<k) and (i<p)) then
  Memo3.Lines.Add(uin.Strings[i] + Edit3.Text + pass.Strings[i]) else
  if i<k then
  Memo3.Lines.Add(uin.Strings[i] + Edit3.Text + pass.Strings[i-p]) else
  Memo3.Lines.Add(uin.Strings[i-k] + Edit3.Text + pass.Strings[i]);
end;

const maxsize = 1024;
var F,W: TextFile; b,n: longint; c: char;
begin
  AssignFile(paramstr(1))
  Reset(F);
  n:=1; //first part has id "1"
  repeat
    i:=1;
    AssignFile(W,'new'+inttostr(i)+'.rar'); //creating new part
    ReWrite(W);
    while (i<=maxsize) and not(eof(F)) do
      begin
        read(F,c);
        inc(i);
        write(W,c);
      end;
    CloseFile(W);
    inc(n);
  until eof(F);
  CloseFile(F);
end.

var
  Form1: TForm1;
 
  O,N : File; //Нетипизированные файлы
 
Const
  //Имя исходного файла (можно ввести/задать)
  NameOldFile : String = 'Old.rar';
  //Имена новых файлов (можно ввести/задать)
  PrefixNewFile : String = 'New';
  //Расширение новых файлов (можно ввести/задать)
  ExtNewFile : String = 'rar';
  //Размер новых файлов (можно ввести/задать)
  maxsize = 1024; //Здесь не более 65536 байт
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  //Буфер для чтения
  Buff : Array[0..65535] of Byte;
  II,i : Integer;
  SizeNewFile : Longint;
Begin
  AssignFile(O,NameOldFile);
  Reset(O,1);
  i:=0; //Для нумерации выходных файлов
  Repeat
    SizeNewFile:=0; //Текущая длина файла-приёмника
    AssignFile(N,NameOldFile+inttostr(i)+'.'+ExtNewFile);
    ReWrite(N,1);
    While ((SizeNewFile<maxsize) And (Not (Eof(O)))) Do
    Begin
      II:=65536;
      If II>(maxsize-SizeNewFile) Then
      //Если остаток до нужной длины меньше длины буфера
      //будем читать сколько нужно
      II:=(maxsize-SizeNewFile);
      BlockRead(O,Buff,II,II);
      Inc(SizeNewFile,II);
      BlockWrite(N,Buff,II,II);
    End;
    CloseFile(N);
    Inc(i);
  Until Eof(O);
  CloseFile(O);
end;