Hvala na pomoći. Sada radi onako kako mi treba.
Malo se trebalo igradi s postavljanjem boja budući da ne učitavam sliku, a sami tImage kreiram u prog.
Image koji mora biti transparenti mora imata FillRect.
Code:
...
i2.Picture.Bitmap.SetSize(100,100);
i2.Picture.Bitmap.Canvas.Brush.Color := clBtnFace;
i2.Picture.Bitmap.Canvas.Brush.Style := bsSolid;
tr.Left := 0;
tr.Top := 0;
tr.Bottom := 100;
tr.Right := 100;
i2.Picture.Bitmap.Canvas.FillRect(tr);
i2.Picture.Bitmap.Canvas.Brush.Color := clBlack;
i2.Picture.Bitmap.Transparent := true;
i2.Picture.Bitmap.TransparentColor := clBtnFace;
i2.Picture.Bitmap.Canvas.MoveTo(100,0);
i2.Picture.Bitmap.Canvas.LineTo(0,100);
...
Ovo je samo kod za testiranje (ne odiše ljepotom), sve skupa ide u klasu.