C++Builder, problem z wczytaniem i zapisywaniem.

Witam wszystkich czytających, mam do zrobienia programik, który będzie wczytywał i zapisywał dane. Jak widać po kodzie chyba błądze ale niestety nie wiem gdzie dalej iść.

#include <vcl.h>
#include <fstream>
#pragma hdrstop

#include "album.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TAlbum_szczegoly *Album_szczegoly;
//---------------------------------------------------------------------------
__fastcall TAlbum_szczegoly::TAlbum_szczegoly(TComponent* Owner)
	: TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TAlbum_szczegoly::Tytul_EditChange(TObject *Sender)
{
Caption = "informacja o albumie  -  " + Tytul_Edit->Text;

}
//---------------------------------------------------------------------------
void __fastcall TAlbum_szczegoly::Okladka_PictureDblClick(TObject *Sender)
{
if (OpenPictureDialog1->Execute()) {

  Okladka_Picture->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}

}
//---------------------------------------------------------------------------

void __fastcall TAlbum_szczegoly::Wczytaj_BTNClick(TObject *Sender)
{
	OpenDialog1->DefaultExt ="TXT";
	OpenDialog1->FileName ="*.txt";

	Tytul_Edit->Text = bufor;
if (OpenDialog1->Execute()) {
	Caption="informacja o albumie-"+ExtractFileName(OpenDialog1->FileName);
	Tytul_Edit->Lines->LoadFromFile(OpenDialog1->FileName);
	Wykonawca_Edit-> Lines->LoadFromFile(OpenDialog1->FileName);
	Typ_Combo->Lines->LoadFromFile(OpenDialog1->FileName);
}
}
//---------------------------------------------------------------------------

void __fastcall TAlbum_szczegoly::Zapisz_BTNClick(TObject *Sender)
{
   SaveDialog1->DefaultExt="TXT";
   SaveDialog1->FileName="*.txt";
	if (SaveDialog1->Execute()) {
	Caption="informacja o albumie-"+ExtractFileName(SaveDialog1->FileName);
	Panel_Edycyjny->Lines->SaveToFile(SaveDialog1->FileName);
}

czy naprawde nikt nie może mi pomóc??

Weź ten paszkwił ładnie sformatuj i zapakuj w odpowiedni tag żeby się wyświetlał ładny i czytelny kod, wtedy może się komuś zechce ubrudzić tym oczy :)
Ale na pierwsze ukradkowe spojrzenie widzę że do tych trzech pól na szczegóły wczytujesz to samo - LoadFromFile wczytuje cały plik.
Znajdź sobie dział w stylu "Operacje na plikach" w pomocy, powinienneś dostać praktycznie gotowca.

już nie narzekaj,że aż tak nie czytelny jest. Niestety jestem świeży jeśli chodzi o forumowe tematy także troche wyrozumiałości też się przyda. Aha szukałem troche na temat Operacji na plikach ale znalazłem to tylko nie konczy kompilacji i wyrzuca mi błąd:

[code] __fastcall TAlbum_szczegoly::Wczytaj_BTNClick(TObject *) is not a member of 'TAlbum_Szczegoly' [/code]

 
//---------------------------------------------------------------------------

#include <vcl.h>
#include <fstream>
#pragma hdrstop

#include "album.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAlbum_szczegoly *Album_szczegoly;
//---------------------------------------------------------------------------
__fastcall TAlbum_szczegoly::TAlbum_szczegoly(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TAlbum_szczegoly::Tytul_EditChange(TObject *Sender)
{
Caption = "informacja o albumie  -  " + Tytul_Edit->Text;
}
//---------------------------------------------------------------------------
void __fastcall TAlbum_szczegoly::Okladka_PictureDblClick(TObject *Sender)
{
if (OpenPictureDialog1->Execute()) {

  Okladka_Picture->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TAlbum_szczegoly::Wczytaj_BTNClick(TObject *Sender)
 {
TFileStream *FStream;

 if (OpenDialog1->Execute())
  {
  try{
	  FStream = new TFileStream (OpenDialog1->FileName,fmOpenRead | fmShareExclusive);
	  FStream->ReadComponent(Tytyl_Edit);
	  FStream->ReadComponent(Wykonawca_Edit);
	  FStream->ReadComponent(Typ_Combo);
	  FStream->ReadComponent(Ilosc_Plyt);
	  FStream->ReadComponent(Rok_edit);
	  FStream->ReadComponent(Ocena_Combo);
	  }
	 __finally
  {delete FStream;
  }
  }

}
//---------------------------------------------------------------------------

void __fastcall TAlbum_szczegoly::Zapisz_BTNClick(TObject *Sender)
{
TFileStream *FStream;
if (SaveDialog1->Execute())
 {
 try{
	 FStream = new TFileStream(SaveDialog1->FileName,fmCreate);
	 FStream->WriteComponent(Tytul_Edit);
	 FStream->WriteComponent(Wykonawca_Edit);
	 FStream->WriteComponent(Typ_Combo);
	 FStream->WriteComponent(Ilosc_Plyt);
	 FStream->WriteComponent(Rok_edit);
	 FStream->WriteComponent(Ocena_Combo);
		  }
	  __finally
	  {
		  delete FStream;
	  }
 }
}
//---------------------------------------------------------------------------