---

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  S: string;
begin
  S := Edit1.Text + ';' +
       ComboBox1.Text + ';' +
       Edit3.Text + ';' +
       Edit4.Text + ';' +
       Edit5.Text;

  if Trim(ComboBox1.Text) = '' then
  begin
    ShowMessage('Введите вид спорта!');
    Exit;
  end;

  AssignFile(F, 'Sport.txt');

  if FileExists('Sport.txt') then
    Append(F)
  else
    Rewrite(F);

  WriteLn(F, S);
  CloseFile(F);

  { ✔️ В MEMO пишем ВСЕ введённые данные }
  Memo1.Lines.Add(
    'Данные: ' +
    'ID=' + Edit1.Text +
    ', Спорт=' + ComboBox1.Text +
    ', ФИО=' + Edit3.Text +
    ', Рост=' + Edit4.Text +
    ', Вес=' + Edit5.Text
  );

  Edit1.Clear;
  ComboBox1.Text := '';
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
end;