Zapis do i odczyt danych z pliku tekstowego - dziwna sprawa

witam
pisze na uczelnie program w pascalu obiektowym ktora ma wpisywac dane do pliku txt(bazy danych) i wyswietlac je. Zarowno zapisywanie jak i wyswietlanie dziala bez zarzutu dopoki w Memo gdzie wyswietlam plik nic sie nie znajduje. Gdy cos juz tam jest to program wyrzuca blad i wskazuje ze blad jest w Write(plik,Edit1.Text+''); takiej oto linijce ktora odpowiada za dodawanie tekstu znajdujacego sie w kombonencie Edit1 do pliku. Dlaczego tak sie dzieje??
Prosze o pomoc

Za mało kodu. Może nie zamykasz gdzieś wcześniej otwartego pliku? Co ma memo do edita? Napisz też jaki jest komunikat błędu.

Pokaż cały kod zapisu i odczytu do i z pliku jeśli momy pomóc, bo z opisu raczej nic nie wynika (no może to, że "dziwna sprawa"); A tak poza tym to najprawdopodobniej wystarczyłoby podać komunikat błędu, który wyjaśniłby istniejący problem.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  PairSplitter, ValEdit, ComCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ListBox1: TListBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  plik:Text;
  tekst:String;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin

      AssignFile(plik,'C:\Users\David\Desktop\projekt WDP\baza.txt');
      Append(plik);
      Write(plik,Edit1.Text+'');
      Write(plik,Edit2.Text+'');

      if (RadioButton1.Checked=true) then
      {
         write(plik,'Kobieta'+'');
      }
      else
      write(plik,'Mężczyzna'+'');
      write(plik,Edit4.Text+'');
      write(plik,Edit5.Text+'');
      writeln(plik,'ur. w '+Edit3.Text+' roku');
      CloseFile(plik);
      Edit1.Text:='';
      Edit2.Text:='';
      Edit3.Text:='';
      Edit4.Text:='';
      Edit5.Text:='';
      RadioButton1.Checked:=false;
      RadioButton2.Checked:=false;

ListBox1.Refresh;
Button3.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close();
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
     AssignFile(plik,'C:\Users\David\Desktop\projekt WDP\baza.txt');
     reset(plik);

     while  not EOF(plik)=true do
begin
  readln(plik,tekst);
  ListBox1.Items.Add(tekst);
end;
  Button3.Enabled:=false;


end;
end. 

oto kod calej aplikacji

a to jest blad:

przycięcie obrazka + dodanie go do załączników posta - fp

w Button3Click zamknij plik. Do listbox'a można wczytać dane o wiele prościej przez ListBox1.Items.LoadFromFile('TUTAJ_SCIEZKA_DO_PLIKU')

ok problem rozwiazany
chodzilo o to ze to wczytywanie nie wymaga otwarcia pliku tekstowego

Plik istnieje przed jego pierwszym otwarciem? Przeczytaj ten art. Pliki wyjaśni ci on jak się zachowują funkcje których używasz z przykładami.

problem rozwiazany wszystko ladnie wyswietla

teraz jakbyscie mogli mi podpowiedziec jak zrobic takie cos
bo musze jeszcze wyszukiwac osoby np wg nazwiska
i wymyslilem ze po prostu tam wyszukiwanie
jesli taki tekst jaki podalem znajduje sie to program wyswietla ta linijke
tylko nie mam pomyslu jak zrobic zeby wyswietlal linijke w ktorej znajduje sie szukany tekst
prosze o pomoc

Mogą się do tego przydać któreś z tych funkcji Łańcuchy zwłaszcza Pos.
IMO zawaliłeś, że zapisujesz wszystko w jednej linijce bez separatorów - ciekawe jak odróżnisz, Jana sobieskiego zamieszkałego w Warszawie od Andrzeja Kowalskiego zamieszkałego na ul. Jana Pawła II przy szukaniu frazy "Jan"?

przeciez nie zapisuje wszystkiego w 1 linijce
kazda osoba jest w oddzielnej linijce zapisywana

Zgadza się ale jak odróżnisz czy masz do czynienia z imieniem czy np. nazwą ulicy? Tego nie wiesz bo tracisz tą informację przy zapisie nie rozdzielając jakimś separatorem np. średnikiem poszczególnych danych osobowych.
Mógłbyś użyć ExtractStrings do rozdzielenia poszczególnych danych osobowych.

hmm
tylko co mi to da?

@dawid1110 - jeden problem - jeden wątek; Teraz zaczniesz pytać o zupełnie inne rzeczy, niż opisane są w tytule wątku i pierwszym poście, przez co zmylisz użytkowników;

Poza tym wątek dotyczy typowych podstaw, więc przenoszę do działu dla początkujących.

po prostu chcialem uniknac tworzenia zbednie nowych watkow

Możesz to uczynić nie przez poruszanie różnych problemów w jednym wątku, a przez wzięcie w swoje ręce kursu programowania, w którym dowiesz się róznych przydatnych rzeczy, a także dokumentacji opisujących procedury i funkcje; Również kombinowanie we własnym zakresie i testowanie różnych rozwiązań jest jak najbardziej zalecane.

@dawid1110 proponuje nawet nie zaprzęgać google do szukania ale wystarczy, że wpiszesz w wyszukiwarce na forum "Zapisywanie rekordów do pliku pascal" i dostaniesz milion linków do miliarda gotowców.