Pascal in Delphi mit canvas.textout

[thorstenf01]

Hallo!
Wer kann mir dabei helfen, folgende Pascal Prozeduren in Delphi mit Canvas.TextOut zu
implementieren. Ich bin nach zahlreichen versuchen gescheitert....

Code:

...
procedure Tageslinien;
var   Zaehler1                     :integer;
      text                         :string[6];
begin
      Farbe1:=red;  SetColor(Farbe1);

      for Zaehler1:=1 to 13 do begin
      case Zaehler1 of
      1: begin Tag:=  5; text:=' 5.Jan'; end;
      2: begin Tag:= 35; text:=' 4.Feb'; end;
      3: begin Tag:= 65; text:=' 6.M"r'; end;
      4: begin Tag:= 95; text:=' 5.apr'; end;
      5: begin Tag:=125; text:=' 5.Mai'; end;
      6: begin Tag:=155; text:=' 4.Jun'; end;
      7: begin Tag:=172; text:='21.Jun'; end;
      8: begin Tag:=202; text:='21.Jul'; end;
      9: begin Tag:=232; text:='20.Aug'; end;
      10:begin Tag:=262; text:='19.Sep'; end;
      11:begin Tag:=292; text:='19.Okt'; end;
      12:begin Tag:=322; text:='18.Nov'; end;
      13:begin Tag:=351; text:='21.Dez'; end;  end;
      if Tag > 181 Then begin Farbe1:=green; SetColor(Farbe1);end;
      Deklination(Tag);
      AU(Tag);
      Zonenzeit:=ZZA;
      repeat
        Hoeheazi(Tag,Zonenzeit);
        if Hoehenwinkel < 0 then Hoehenwinkel:=0;
        xy(Hoehenwinkel,azi);
        putpixel(Bmittex+x1,Bmittey+y1,farbe1);
        Zonenzeit:=Zonenzeit+0.02;
      until Zonenzeit >=ZZU;
end;  end;

procedure Stundenschleifen;
begin
      Zonenzeit:=1;
      repeat {"Stundenschleife"}
        Tag:=1;
        repeat {"Tagesschleife"}
          if Tag < 181 then Farbe1:=red else Farbe1:=green;
          SetColor(Farbe1);
          Deklination(Tag);
          hoeheazi(Tag,Zonenzeit);
          if Hoehenwinkel >= 0 then begin
          xy(Hoehenwinkel,azi);
          putpixel(Bmittex+x1,Bmittey+y1,farbe1); end;
          Tag:=Tag+1;
        until Tag > 366;
        Zonenzeit:=Zonenzeit+1;
      until Zonenzeit >24;
end;

...

Thanks for help...
Thorsten