1:
2:
3:
4:

IF OpenDialog1. Execute THEN
 BEGIN
  Memo1.LoadFormFile(OpenDialog1.FileName);
 END;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure LoadFile(FIleName:String);
var 
  Stream:TFileStream;
begin
  Stream:=TFileStram.Create(FileName, fmOpenRead);
  Memo1.LoadFromStream(Stream);//sollte funktionieren
  Stream.Free;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

type
 TIntArray = array of integer;

function Search_all(substr: string; str: string): TIntArray;
var
 s,s2,s3: pchar;
 idx: integer;
begin
 s := pchar(str);
 s2 := pchar(substr);
 idx := 1;
 repeat
  if s^ = s2^ then
  begin
   s3 := pchar(str);
   inc(s3,idx-1);
   while (s2^ <> #0) and (s3^ <> #0) and (s2^ = s3^) do
   begin
    inc(s2);
    inc(s3);
   end;
   if (s2^ = #0) then
   begin
    setlength(result,length(result)+1);
    result[high(result)] := idx;
   end;
   s2 := pchar(substr);
  end;
  inc(s);
  inc(idx);
 until s^ = #0;
end;