VCL Delphi

function sagaDaya(s: string;col: integer): string;
var
bosluk: string;
en: integer;
begin
bosluk := ' ';
en := StringGrid1.ColWidths[col] -
StringGrid1.Canvas.TextWidth(s);
while (en - 5) > SG1.Canvas.TextWidth(bosluk) do
bosluk := bosluk + ' ';
sagaDaya := bosluk + s;
end;