Exibição de cadastro no Tmemo, no Delphi

implementation

{$R *.dfm}

procedure TForm1.BT_ADDClick(Sender: TObject);
begin
    if ED_COD.Text <> ('''') then
    begin
      if ED_NAME.Text <> ('''') then
        begin
          if MK_PHONE.Text <> ('''') then
            begin
              //COD
              ListaCod.add(ED_COD.Text);
              ED_COD.Clear;
              //NAME
              ListaName.Add(ED_NAME.text);
              ED_NAME.Clear;
              //PHONE
              ListaPhone.Add(MK_PHONE.Text);
              MK_PHONE.Clear;
            end
        end;
    end
    else if ED_COD.Text = '''' then
         begin
             Showmessage(''Erro na gravação(Preencha todos os campos)'');
         end
            else if ED_NAME.Text = '''' then
                begin
                   Showmessage(''Erro na gravação(Preencha todos os campos)'');
                end
                    else if MK_PHONE.Text = '''' then
                       begin
                          Showmessage(''Erro na gravação(Preencha todos os campos)'');
                       end;
end;

procedure TForm1.BT_PESQUISARClick(Sender: TObject);
var
i : integer;
begin
    for i := 0 to ListaCod.Count-1 do
    memo1.Lines[i] := (''Código: '' +ListaCod[i]+ '' '' + ''- Nome: ''  +ListaName[i]+ '' '' + ''- Telefone: '' +ListaPhone[i]);
end;

procedure TForm1.BT_REMOVERClick(Sender: TObject);
begin
  memo1.Lines.clear;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    //Zerar lista de codigo//
    ListaCod.Free;
    ListaCod := NIl;
    //Zerar lista de nomes//
    ListaName.Free;
    ListaName := NIl;
    //Zerar lista de telefone//
    ListaPhone.Free;
    ListaPhone := NIl;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    ListaCod := TStringList.Create;
    ListaName := TStringList.Create;
    ListaPhone := TStringList.Create;
end;

end.