Как добавить определённую строку из Memo в Edit?

Edit1.Text:=Memo1.Lines.Strings[0];
{0 - это номер строки, но учти то, что счет начинается с 0, то есть 1 строка - это 0, 2 строка - это 1....и тд}

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.FormCreate(Sender: TObject);
var
p:integer;
d:integer;
line: string;
begin
  begin
      memo1.Lines.LoadFromFile('basa1.txt');
      p=RandomRange(1, 100);// сдесь ошибка при компиляции
      Edit1.Text.Add(memo1.Lines[p]);// сдесь подчёркивает .Add
  end;
  begin
      memo1.Lines.LoadFromFile('basa1.txt');
      d=RandomRange(1, 100);
      Edit2.Text.Add(memo1.Lines[d]);// сдесь подчёркивает .Add
  end;
end;
 
end.

randomize;
p:=RandomRange(1, 100);

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.FormCreate(Sender: TObject);
var
p,d:integer;
line: string;
begin
      memo1.Lines.LoadFromFile('basa1.txt');
//2 раза писать memo1.Lines.LoadFromFile('basa1.txt'); вовсе не нужно достаточно 1 раза
      p:=RandomRange(1, 100);//так как ты присваиваешь значение то нужно писать знак ":="
      Edit1.Text:=memo1.Lines.Strings[p];
 
      d:=RandomRange(1, 100);
      Edit2.Text:=memo1.Lines.Strings[d];
{присваивать значение Edit нужно так Edit1.Text:='какойто текст';}
end;
 
end.