gemme image til næste gang programmet startes

Hvis jeg forstår dig ret, kunne du oprette en undermappe, som du kopierede det valgte logo til. I din ini-fil laver du en nøgle, der hedder logo og en key, hvor du skriver navnet på logofilen. Hvis Checkbo1 er markeret, indlæser du filen.

yep det er i store træk det jeg vil.

Hvad så?
Skal du ha' mere hjælp?

ja med lidt kode ss

logo skal være en variabel da jeg ikke ved hvilket grafik format der vælges og derfor ikke kan forudbestemme.

Man kunne også blot gemme navnet på billedet i inifilen.
Du kender navnet (op.FileName), så det er bare at gemme det navn i inifilen.
Når du så vil vise billedet er det bare at lave en
  Image1.Picture.LoadFromFile(FileNameFraIniFile);

hvordan gemmer man navnet på billedet i en inifile?

Jeg har ikke lige Delphi her ved mig, men jeg går ud fra at du bruger TIniFile klassen i forvejen, ikke?
Så skriver du bare noget med
  Ini.WriteString('sektionnavn', 'identnavn', op.FileName);
Altså på samme måde som du skrive de andre ting i din inifil.

Her er et par eksempler på at skrive til og læse fra en ini-fil.
Eksemplet er hentet fra Delphis indbyggede hjælpefunktion:

procedure TForm1.Button1Click(Sender: TObject);

var
  MyIniFile: TIniFile;
  begin
  MyIniFile := TIniFile.Create('myapp.ini');
  Memo1.Clear;
  MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
  MyIniFile.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);

var
  MyIniFile: TIniFile;
  begin

  MyIniFile := TIniFile.Create('myapp.ini');

  { if the entry wasn’t there before, delete it now }
  if Memo1.Lines.Values['Title1'] = '' then
    MyIniFile.DeleteKey('Transfer', 'Title1')
  { otherwise, restore the old value }
  else
    MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
  MyIniFile.Free;
end;

er der ikke en anden måde at definere 2 grafik formater på
logo.jpg
logo.gif
end at bruge ini files

kan ikke få det til at virke er det ikke getnamepath der skal bruges?

den opretter godnok settings.ini //gem
[Settings]
image1=TPicture

der skulle stå stien til billedet

Du blander tingene sammen ;-)
Grafikformatet har intet at gøre med ini-filen. Ini-filen er blot et sted, hvor du gemmer dine data, når programmet er slukket. Du kan også gemme dine data i registry. Så vidt jeg ved, anbefaler Microsoft dog, at man gemmer sine data i en ini-fil.
Tilbage til dit problem.
Du vil gerne ha' at folk kan vælge et image til deres kvittering. De skal selvfølgelig kun kunne vælge et format, som din Imagebox understøtter.
Når de har valgt et image, uploader du det i din Imagebox. Samtdig kopierer du en kopi af imagedet til en programmappe, så du også har det næste gang programmet startes, selv om brugeren har slettet det fra den oprindelige placering.
Til sidst "noterer" du navnet på filen i din ini-fil, så du kan indlæse billedet næste gang kvitteringen vises på skærmen.
Hvis der er dele af denne process du mangler hjælp til, så sig til. Men jeg vil ikke lave programmet for dig.

nej man lærer ikke ved at de andre laver programmet,

jeg ved godt at grafik formatet ikke kan skrives i ini filen men det kan stien ned til billedet som skal loades ved readstring

det er stort set det eneste problem jeg har....

har leget lidt med ini filer, men kan ikke få stien til billedet skrevet i ini filen

OK, inden jeg sender lidt hjælp, vil jeg gerne have nogle få oplysninger
1) Hvilken billedkontainer bruger du?
2) Hvilke grafikformatet tillader du?
2) Kopierer du billedet til en mappe og hvis ja, hvad er navnet på mappen?

1: Timage
2: billeder  formater *.gif og *.jpg
3: nej

her er hvad jeg har nørklet med..
gem kører uden problemer men load giver en acces error
procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile : TIniFile;
begin      //save
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
  iniFile.WriteString('Settings','Image1.Picture','c:\temp\logo.gif');
end;

procedure TForm1.Button3Click(Sender: TObject);
var      //load
IniFile : TIniFile;
s: string;
begin
s:=inifile.ReadString('Settings','Image1.Picture','');
Image1.Picture.LoadFromFile(s);

Du mangler denne linie i din load procedure:
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

Og i begge procedurer skal der være en en
  iniFile.Free;
som sidste linje.
Og skal det være helt godt skal der bruges try..finally for at sikre Free at inifile objektet.

har lige en total shutdown af min pc - har købt en ny som jeg lige skal have installeret delphi på. så jeg har ikke lige mulighed for at prøve det...

men hæng på kroning du er jo en kanon hjælp her....

Jeg ved ikke havd der er sket. Mere en halvdelen af koden er forsvundet under kopieringen.
Jeg prøver én gang til.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs, IniFiles, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  AppDir: String;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
  MyIniFile: TIniFile;

begin
  If OpenPictureDialog1.Execute then begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
    MyIniFile := TIniFile.Create(AppDir+'Settings.ini');
    MyIniFile.WriteString('Graphics','Logo',OpenPictureDialog1.Filename);
    MyIniFile.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Filename: String;
var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create(AppDir+'Settings.ini');
  Filename:=MyIniFile.ReadString('Graphics','Logo','*FEJL*');
  MyIniFile.Free;
  if Filename<>'*FEJL*' then
    Image1.Picture.LoadFromFile(Filename)
  else
    Showmessage('Filen '+Filename+' kan ikke indlæses.');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AppDir:= ExtractFilePath(Application.ExeName)
end;

end.

hej nca

det virker jo fint.. men den loader billedet unaset hvordan checkbox1 er checked eller ikke og det er ikke optimalt.

når checkbox1 er checked skal billedet indlæses ellers ikke

Hej Sharon
Du skal ét passende sted i din kode kontrollere om Checkbox1 er checked:
If CheckBox1.Checked then begin
... Her skal min kode fra fra Button2Click stå
endif

hvorfor er der en dobbelt var? er det ik nok med en

Jo, du kan vælge at lave MyIniFile som en global variabel. Så kan du slette de 2 i procedurerne. Jeg foretrækker selv at bruge lokale variable, da jeg synes det giver en bedre oversigt over både proceduren og de variable, man bruger.

smid lige et svar