Procedure WindRajz; begin{WindRajz} With Cim do begin X1:=0; Y1:=462; X2:=639; Y2:=479; MunkaTerHSzin:=Blue; FejlecHSzin:=LightGray; FejlecSzSzin:=Black; FejLecSzov:='Szimul ci¢ neve'; Rajz; end{with}; With SzimTer do begin X1:=0; Y1:=255; X2:=495; Y2:=456; MunkaTerHSzin:=Blue; FejlecHSzin:=Brown; FejlecSzSzin:=Black; FejLecSzov:='Szimul ci¢s t‚r'; Rajz; end{with}; With Grafikon do begin X1:=0; Y1:=21; X2:=639; Y2:=244; MunkaTerHSzin:=Blue; FejlecHSzin:=Brown; FejlecSzSzin:=Black; FejLecSzov:='Grafikon'; Rajz; end{with}; With Param do begin X1:=506; Y1:=255; X2:=639; Y2:=456; MunkaTerHSzin:=Black; FejlecHSzin:=Brown; FejlecSzSzin:=Black; FejLecSzov:='Param‚terek'; Rajz; end{with}; end{WindRajz};