scrollbars i memo?

har skrevet koden lidt om..

procedure TForm1.LodretClick(Sender: TObject);
var
  vaerdi: integer;
begin
vaerdi := 0;
if lodret.checked = false then begin
  if vandret.checked = true then begin
    filindhold.ScrollBars := ssBoth;
  end
  else begin
    filindhold.ScrollBars := ssVertical;
  end;
  lodret.checked := true;
  vaerdi := 1;
end
else
  if vandret.checked = true then
    filindhold.ScrollBars := ssHorizontal;
  if vandret.checked = false then
    filindhold.ScrollBars := ssVertical;
  lodret.checked := false;
end;

var
  vaerdi: integer;
begin
vaerdi := 0;
if lodret.checked = false then begin
  if vandret.checked = true then begin
    filindhold.ScrollBars := ssBoth;
  end
  else begin
    filindhold.ScrollBars := ssVertical;
  end;
  lodret.checked := true;
  vaerdi := 1;
end
else
  BEGIN <--- ny
  if vandret.checked = true then
    filindhold.ScrollBars := ssHorizontal;
  if vandret.checked = false then
    filindhold.ScrollBars := ssVertical;
  lodret.checked := false;
  END;
end;

weeeeee
det virker! :D
svar så du får point ;)

;-)

du ved vel ikke hvordan man kan gøre det muligt at lave "indrykning"?
altså..lige nu "skifter" den til et andet sted når jeg trykker på TAB-tasten.. hvordan gør jeg sådan at jeg får indrykning som i notepad?