Try...Except besser verwenden?

[Paul0703]

Hallo!
Ich habe folgendes Problem:
Ich rufe Werte aus einem Quelltext einer Internetseite ab und verwende diese dann weiter.
Wenn aber kein Zugriff auf das Internet möglich ist,also wenn die Werte leer sind, dann stürzt das Programm ab.

Es geht um folgende Procedure:

Delphi-Quellcode:

procedure TForm1.ThreadedTimer1Timer(Sender: TObject);
var HTMLCode: String;
    TextMessage: TArrayOfString;
    User: TArrayOfString;
    Time: TArrayOfString;
    NameColor: TArrayOfString;
    i: Integer;
    R: Integer;
    G: Integer;
    B: Integer;
    ShortTime: String;
    UserNameColor: TColor;
begin
  Try
    HTMLCode := idHTTP1.Get('http://forum.quicklink.me/chat.php');
    FindInString(HTMLCode, 'class="content" style="min-height: 0px;">', '</div>', False, TextMessage);
    FindInString(HTMLCode, 'class="username-coloured">', '</a></dt>', False, User);
    FindInString(HTMLCode, 'margin: 0px !important;">', '</p>', False, Time);
    FindInString(HTMLCode, '" style="color: ', ';"', False, NameColor);
    LockwindowUpdate(jvRichedit1.Handle);
    Try
      jvRichEdit1.Clear;
      for i := 0 to 9 do
      begin
        If not Form2.CheckBox2.Checked then ShortTime := Copy(Time[i], 17, 7);
        R := StrToInt('$' + Copy(NameColor[i], 2, 2));
        G := StrToInt('$' + Copy(NameColor[i], 4, 2));
        B := StrToInt('$' + Copy(NameColor[i], 6, 2));
        UserNameColor := RGB2TColor(R, G, B);
        If (jvRichEdit1.Color = clblack) and (R = $00) and (G = $00) and (B = $00) then UserNameColor := clwhite;
        If not Form2.CheckBox2.Checked then jvRichEdit1.AddFormatText(User[i] + ' (' + ShortTime + ')' + #13#10, [fsbold, fsUnderline], 'Comic Sans MS', UserNameColor, -12);
        If Form2.CheckBox2.Checked then jvRichEdit1.AddFormatText(User[i] + ' (' + Time[i] + ')' + #13#10, [fsbold], 'Comic Sans MS', UserNameColor, -12);
        If jvRichEdit1.Color = clblack then jvRichEdit1.AddFormatText(UTF8ToAnsi(TextMessage[i]) + #13#10, [], 'Comic Sans MS', clsilver);
        If jvRichEdit1.Color = clwhite then jvRichEdit1.AddFormatText(UTF8ToAnsi(TextMessage[i]) + #13#10, [], 'Comic Sans MS', clblack);
        //Form1.jvRichEdit1.Lines[i] := StringReplace(Form1.jvRichEdit1.Lines[i],' ','BBBBBBBBBBB',[rfreplaceall]);
      end;
    Finally
      LockWindowUpdate(0);
      //Form1.jvRichEdit1.Text := StringReplace(Form1.jvRichEdit1.Text,'a','BBBBBBBBBBB',[rfreplaceall]);
    end;
    If not (CompareString = jvRichEdit1.Lines[0]) then
    if Length(CompareString) > 0 then SoundTime := SoundTime + 1;
    CompareString := jvRichEdit1.Lines[0];
    If SoundTime = StrToInt(Form2.Edit4.Text) then
    begin
      If Form2.RadioButton1.Checked then CoolTrayIcon1.ShowBalloonHint('Q-Chat', 'Neue Nachrichten empfangen!', bitInfo, 10);
      If Form2.RadioButton2.Checked then beep;
      SoundTime := 0;
    end;
  Except
    ShowErrorMessage;
    Form1.Close;
  end;
    TestStatus;
end;

Wenn die Werte die am Anfang abgerufen werden, nicht vefügbar sind, dann stürzt das Programm ab.
Außerdem verursacht dieser Code ein Speicherleck.
Ich denke, ich habe den Code auch falsch aufgebaut mit Try...Execpet, aber ich weiß auch nicht, wie ich das besser machen kann.

Ich hoffe, ihr könnt mir da helfen