txt-file einlesen und bearbeiten

[jority]

hi ihr lieben,
ich möchte/muss eine txt-file einlesen und beaerbeiten.
ich lese sie zeilenweise ein und zwar so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    i:integer;
    s:string;
begin
      assignfile(f,'c:\test.txt');
      reset(f);
     i:=0;
      while not EOF(f) do begin
        readln(f,s);
        memo1.Lines.Add(s);
        inc(i)
      end;

so, da es sich um eine txt-file handelt mit einem komischen format möchte ich "nur" die ascii zeichen
32 bis 126 anzeigen bzw. alle anderen rausschmeißen.
weiß da jemand ne lösung? hab leider noch nie mit dem auslesen von txt-dateien gearbeitet und brauche jetzt hilfe
ich hoffe mir kann jemand helfen.
gruß
Jority

[edit=sakura]Bitte Delphi.Tags nutzen! Mfg, sakura[/edit]