Program usuwający jeden wiersz wylosowany z notatnika

Witam potrzebuje pomocy tzn mam problem z utworzeniem programu który usuwa jeden wiersz z wybranego notatnika. Jestem bardzo bardzo początkujący wiem stworzył mi pewien Pan taki program ale niestety nie zachował kodu źródłowego który mi jest bardzo potrzebny po prostu chce to połaczyć z innym programem. Czy ktoś by mi mógł pomóc ?

var lst:TStringList;
...
lst:=TStringList.Create();
lst.LoadFromFile(FileName);
lst.Delete(Random(lst.Count));
lst.SaveToFile(FileName);
Lst.Free;

Wypadało by też sprawdzić czy są jakieś wiersze.

jeszcze mi zostały kody które mógl gościu przysłać

procedure  TProgram.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TProgram.WczytajClick(Sender: TObject);
begin
  if OpenDialog.Execute() then
  begin
    File := TStringList.Create;
    File.LoadFromFile(OpenDialog.FileName);
  end;
end;

procedure TProgram.LosujClick(Sender: TObject);
begin
  If File.Text <> '' then
  begin
    i := Random(File.Count);
    Row.Text := File[I];
    File.Delete(i);
    File.SaveToFile(OpenDialog.FileName);
  end
  else
  begin
    Row.Text := '';
  end;
end;

procedure  TProgram.SchowekClick(Sender: TObject);
begin
  Clipboard.AsText := Row.Text;
end;

Kazał mi dodać buttony i OpenDialog na formę, stworzyć zmienną
TStringListwystarczy stworzyć obiekty, zadeklarować zmienne i procedury,
dodać unit math. lecz nie zabardzo wiem o co chodzi ? tworze w embacendero xe5

No to poczytać jakiś kurs i zrobić, lub wynająć fachowca.