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

procedure TDropForm.Open1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then begin
  RichEdit1.Clear;
  LastUsed:= OpenDialog1.FileName; //Pfad + Dateiname für spätere Zwecke gespeichert

  Richedit1.Lines.LoadFromFile (OpenDialog1.FileName);
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TDropForm.Open1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then begin
  RichEdit1.Clear;
  LastUsed:= OpenDialog1.FileName;

  RichEdit1.Font.Charset:= Default_CharSet;   //RichEdit auf ein anderes CharSet als OEM einstellen
  Richedit1.Lines.LoadFromFile (OpenDialog1.FileName);  //Text einlesen
  RichEdit1.Font.Charset:= OEM_CharSet;   //RichEdit für korrekte Darstellung auf OEM_Charset einstellen
 end;
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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

type
  TForm3 = class(TForm)
    re: TRichEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure WndProc(var Message: TMessage); override;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation
uses richedit,Shellapi;
{$R *.dfm}

procedure TForm3.WndProc(var Message: TMessage);
var
  p: TENLink;
  strURL: string;
begin
  if (Message.Msg = WM_NOTIFY) then
  begin
    if (PNMHDR(Message.lParam).code = EN_LINK) then
    begin
      p := TENLink(Pointer(TWMNotify(Message).NMHdr)^);
      if (p.Msg = WM_LBUTTONDOWN) then
      begin
        SendMessage(re.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg)));
        strURL := re.SelText;
        Showmessage(strURL);
        //ShellExecute(Handle, 'open', PChar(strURL), 0, 0, SW_SHOWNORMAL);
      end
    end
  end;

  inherited;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
 mask: Word;
begin

  mask := SendMessage(RE.Handle, EM_GETEVENTMASK, 0, 0);
  SendMessage(RE.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK);
  SendMessage(RE.Handle, EM_AUTOURLDETECT, Integer(True), 0);

  re.Lines.LoadFromFile('C:\temp\term.txt');
  re.Font.Name := 'Terminal';
  re.Font.Charset:= OEM_CharSet;

end;

end.                    

1:
2:

RichEdit1.Font.Name := 'Terminal';
RichEdit1.Font.Charset:= OEM_CharSet;